\documentclass{article}
\input feynman
\pagestyle{empty}
\begin{document}

\begin{picture}(20000,20000)
\thicklines\drawline\photon[\SE\REG](18000,18000)[5]
\drawline\fermion[\S\REG](\photonfrontx,\photonfronty)[\boxlengthy]
\drawarrow[\N\ATBASE](\pmidx,\pmidy)
\drawline\fermion[\W\REG](\photonbackx,\photonbacky)[\photonlengthx]
\drawarrow[\W\ATTIP](\pmidx,\pmidy)
\thinlines\drawline\fermion[\S\REG](\fermionbackx,\fermionbacky)[150]
\drawline\fermion[\W\REG](\fermionfrontx,\fermionfronty)[150]
\drawline\fermion[\SW\REG](\fermionbackx,\fermionbacky)[7000]
\drawline\fermion[\S\REG](\fermionbackx,\fermionbacky)[75]
\drawline\fermion[\E\REG](\fermionbackx,\fermionbacky)[75]
\drawline\gluon[\SW\REG](\fermionbackx,\fermionbacky)[5]
\put(\gluonfrontx,\gluonfronty){\circle*{500}}
\drawline\fermion[\S\REG](\fermionbackx,\fermionbacky)[75]
\drawline\fermion[\E\REG](\fermionbackx,\fermionbacky)[75]
\drawline\fermion[\NE\REG](\fermionbackx,\fermionbacky)[7000]
\put(\gluonbackx,\gluonbacky){\circle*{500}}
\gaplength=300
\drawline\scalar[\NW\REG](\gluonbackx,\gluonbacky)[3]
\thicklines\drawarrow[\NW\ATBASE](\scalarbackx,\scalarbacky)
\gaplength=300   \thinlines
\drawline\scalar[\SE\REG](\gluonbackx,\gluonbacky)[3]
\put(\pfrontx,\scalarbacky){{\bf H}$^0$}
\put(\gluonfrontx,\gluonfronty)
{\ $\,{}_{\longleftarrow f_6(\omega,p_+\cdot q_-)}$}
\drawline\fermion[\NW\REG](\photonfrontx,\photonfronty)[2000]
\drawarrow[\NW\ATBASE](\pbackx,\pbacky)
\drawline\fermion[\SE\REG](\photonbackx,\photonbacky)[2000]
\drawarrow[\NW\ATTIP](\pmidx,\pmidy)
\put(\pbackx,\pbacky){$\,\,p+q$}
\end{picture}

\end{document}
